home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / GRAPHICS GRAB BAG 2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  396b  |  16 lines
  1. 0  HOME 
  2. 1  PRINT "INPUT ANY 2 NUMBERS": PRINT : PRINT 
  3. 2  INPUT "INPUT NUMBER 1 ";C
  4. 3  INPUT "INPUT NUMBER 2 ";D
  5. 5 PI = 3.1415926536
  6. 10  HGR : HCOLOR= 7
  7. 11  HPLOT 139,96
  8. 15  POKE  -16302,0
  9. 20  FOR X = 0 TO 360
  10. 30 X1 = X *PI/180
  11. 40 A = 95 * SIN(X1) * SIN(X1 *C)
  12. 45 B = 95 * COS(X1) * SIN(X1 *D)
  13. 50 X2 = 139 +A:Y = 96 +B
  14. 60  HPLOT  TO X2,Y
  15. 70  NEXT X
  16. 80  POKE  -16368,0: GET A$: TEXT : HOME : END